home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 February / PC Plus Super CD (Issue 124) (PCP124-2-97) (February 1997).iso / handson / vbwkshp / startup.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-11-07  |  4.3 KB  |  140 lines
  1. VERSION 4.00
  2. Begin VB.Form frmStartup 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   1590
  6.    ClientLeft      =   3855
  7.    ClientTop       =   4275
  8.    ClientWidth     =   3585
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       name            =   "Arial"
  12.       charset         =   0
  13.       weight          =   400
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   1995
  20.    Left            =   3795
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1590
  25.    ScaleWidth      =   3585
  26.    ShowInTaskbar   =   0   'False
  27.    Top             =   3930
  28.    Visible         =   0   'False
  29.    Width           =   3705
  30.    Begin VB.Label Label5 
  31.       Alignment       =   2  'Center
  32.       BackStyle       =   0  'Transparent
  33.       Caption         =   "Loading.  Please wait..."
  34.       BeginProperty Font 
  35.          name            =   "Arial"
  36.          charset         =   0
  37.          weight          =   700
  38.          size            =   12
  39.          underline       =   0   'False
  40.          italic          =   0   'False
  41.          strikethrough   =   0   'False
  42.       EndProperty
  43.       ForeColor       =   &H000000FF&
  44.       Height          =   285
  45.       Left            =   0
  46.       TabIndex        =   4
  47.       Top             =   1200
  48.       Width           =   3585
  49.    End
  50.    Begin VB.Label Label4 
  51.       Alignment       =   2  'Center
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "By Bill Hetherington"
  54.       BeginProperty Font 
  55.          name            =   "Arial"
  56.          charset         =   0
  57.          weight          =   700
  58.          size            =   9.75
  59.          underline       =   0   'False
  60.          italic          =   0   'False
  61.          strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   315
  64.       Left            =   0
  65.       TabIndex        =   3
  66.       Top             =   870
  67.       Width           =   3585
  68.    End
  69.    Begin VB.Label Label3 
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "CYCLOTRON"
  72.       BeginProperty Font 
  73.          name            =   "Arial"
  74.          charset         =   0
  75.          weight          =   700
  76.          size            =   15.75
  77.          underline       =   0   'False
  78.          italic          =   0   'False
  79.          strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H00FF0000&
  82.       Height          =   345
  83.       Left            =   1170
  84.       TabIndex        =   2
  85.       Top             =   420
  86.       Width           =   2025
  87.    End
  88.    Begin VB.Label Label2 
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "IDI"
  91.       BeginProperty Font 
  92.          name            =   "Arial"
  93.          charset         =   0
  94.          weight          =   700
  95.          size            =   14.25
  96.          underline       =   0   'False
  97.          italic          =   0   'False
  98.          strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H00FF0000&
  101.       Height          =   345
  102.       Left            =   1170
  103.       TabIndex        =   1
  104.       Top             =   30
  105.       Width           =   435
  106.    End
  107.    Begin VB.Label Label1 
  108.       BackStyle       =   0  'Transparent
  109.       Caption         =   "M"
  110.       BeginProperty Font 
  111.          name            =   "Arial"
  112.          charset         =   0
  113.          weight          =   700
  114.          size            =   48
  115.          underline       =   0   'False
  116.          italic          =   0   'False
  117.          strikethrough   =   0   'False
  118.       EndProperty
  119.       ForeColor       =   &H00FF0000&
  120.       Height          =   975
  121.       Left            =   390
  122.       TabIndex        =   0
  123.       Top             =   -120
  124.       Width           =   825
  125.    End
  126. Attribute VB_Name = "frmStartup"
  127. Attribute VB_Creatable = False
  128. Attribute VB_Exposed = False
  129. Private Sub Form_Load()
  130.     'Centre form
  131.     Top = (Screen.Height - Height) / 2
  132.     Left = (Screen.Width - Width) / 2
  133.     'Show it
  134.     frmStartup.Show
  135.     'Display it fully
  136.     frmStartup.Refresh
  137.     'Load main application interface
  138.     MCIApp.Show
  139. End Sub
  140.